home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / -commercial- / canondisk_v3.98d / canondisk398d.lha / CanonDisk_V3.98d / Install-Driver < prev    next >
Text File  |  1998-03-02  |  63KB  |  2,091 lines
  1. ; $VER: Canon Driver Disk V3.98 (24.02.98)
  2. ; Copyright (C) 1992-98 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. ;**** English text
  8.  
  9. (set #welcome
  10. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  11.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  12. ))
  13. (set #welcome-pirate
  14. (cat "\nWelcome to the Canon printer software!\n\n"
  15.     "Copyright (C) 1992-98 by Wolf Faust\n"
  16.     "Distribution by Canon Europe N.V.\n"
  17.     "\nTHIS DISK MAY NOT BE DISTRIBUTED WITHOUT\n"
  18.         "PRIOR PERMISSION IN WRITING BY WOLF FAUST\n AND/OR CANON EUROPE N.V.!\n"
  19. ))
  20. ;--------------
  21. (set #bad-kick
  22. (cat    "\nYour system software is very old. "
  23.     "You must use at least Kickstart 2.04 for all CanonDisk programs. "
  24. ))
  25. ;--------------
  26. (set #diskbased
  27. (cat "What kind of system disk are you using?"
  28. ))
  29. (set #diskbased-choices1
  30. (cat "Hard disk or similar mass storage device"
  31. ))
  32. (set #diskbased-choices2
  33. (cat "Two or more floppy drives - No hard disk."
  34. ))
  35. (set #diskbased-choices3
  36. (cat "A single floppy drive     - No hard disk."
  37. ))
  38. (set #diskbased-help
  39. (cat "\nThe Canon software requires more disk space than is available "
  40.     "on a single floppy. The installation will help users of floppy "
  41.     "systems to get enough disk space in order to install the Canon software.\n\n"
  42.     @askoptions-help
  43. ))
  44. ;--------------
  45. (set #w-studio
  46. (cat "Select the action(s) to perform."
  47. ))
  48. (set #w-studio-help
  49. (cat "\nCanonDisk is divided in two independent parts: "
  50.     "printer driver and CanonStudio print program. "
  51.     "You can now select wich parts should be un- or installed.\n\n".
  52.     @askoptions-help
  53. ))
  54. (set #w-studio-choices1
  55. (cat "Uninstall Canon drivers"
  56. ))
  57. (set #w-studio-choices2
  58. (cat "Install Canon Workbench driver"
  59. ))
  60. (set #w-studio-choices3
  61. (cat "Install CanonStudio application program"
  62. ))
  63. ;--------------
  64. (set #format
  65. (cat "\nYou need %ld empty floppy disk(s) in order to install the requested software. "
  66.     "Generate the empty floppy disk(s) by using the 'Format Disk...' Workbench "
  67.     "menu item.\n\nPlease assign name(s) (for instance \"Canon\") to the disk(s) that help you identify them later. "
  68. ))
  69. ;--------------
  70. (set #abortunpack
  71. (cat "\nError occured while running the installation decompression program. "
  72.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  73. ))
  74. ;--------------
  75. (set #abortnochoice
  76. (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  77. ))
  78. ;--------------
  79. (set #cfm-delete
  80. (cat "\n\nWarning\n\n"
  81.     "Make a backup of your system disk before deleting old drivers.\n"
  82.     "Shall I really delete all old Canon printer drivers now?\n"
  83. ))
  84. (set #cfm-delete-help
  85. (cat "\nYou may now delete old Canon drivers and their settings.\n\n"
  86. ))
  87. (set #cfm-delete-1
  88. (cat "Yes, delete."
  89. ))
  90. (set #cfm-delete-2
  91. (cat "No, continue"
  92. ))
  93. ;--------------
  94. (set #w-emul
  95. (cat "What printer do you have?"
  96. ))
  97. (set #w-emul-help
  98. (cat "\nThis disk includes several printer drivers for various "
  99.     "Canon printers. "
  100.     "In case your printer is not listed, have a look into your printers user manual for "
  101.     "finding the emulation supported by your printer.\n\n"
  102.     "NOTE: often printers support more than one emulation. "
  103.     "You may have to try several emulations to find the one "
  104.     "fitting your needs best!\n\n"
  105.     @askchoice-help
  106. ))
  107. ;--------------
  108. (set #w-driver #w-emul)
  109. (set #w-driver-help #w-emul-help)
  110. ;--------------
  111. (set #ask-sys
  112. (cat "\nIn which disk or drawer should the Canon printer driver be installed?"
  113. ))
  114. (set #ask-sys-help
  115. (cat "\nThis section lets you choose in which drawer or on which disk the "
  116.     "Studio printer driver should be installed. "
  117.     "The driver should normally go into the \"Printers:\" or \"devs:printers\" directory "
  118.     "of your system disk.\n\n"
  119.     @askdir-help
  120. ))
  121. ;--------------
  122. (set #yellspace
  123. (cat "\nThis installation requires >%ld bytes free on the disk \"%s\". "
  124.     "You may now delete unnecessary files using Workbench or Shell. "
  125.     "This installation script can also delete files now in order to free space. "
  126.     "You will be asked for permission before deleting each file.\n\n"
  127.     "DO MAKE A BACKUP OF YOUR SYSTEM DISKS BEFORE DELETING FILES.\n\n"
  128. ))
  129. ;--------------
  130. (set #tdel0 "Utilities/Clock")
  131. (set #tdel1 "Devs/Printers/Generic")
  132. (set #tdel2 "C/SetFont")
  133. (set #tdel3 "C/Edit")
  134. (set #tdel4 "C/Eval")
  135. (set #tdel5 "C/DiskChange")
  136. (set #tdel6 "C/FileNote")
  137. (set #tdel7 "C/Lock")
  138. (set #tdel8 "C/Search")
  139. (set #tdel9 "C/Sort")
  140. (set #tdel10 "C/MagTape")
  141. (set #tdel11 "C/MakeLink")
  142. (set #tdel12 "C/RemRad")
  143. (set #tdel13 "C/Which")
  144. (set #tdel14 "C/ChangeTaskPri")
  145. (set #tdel15 "C/Join")
  146. (set #tdel16 "System/NoFastMem")
  147.  
  148. (set #del0 "Displays the system time")
  149. (set #del1 "A generic text printer driver")
  150. (set #del2 "Defines system font")
  151. (set #del3 "A line editor")
  152. (set #del4 "Evaluate math expressions")
  153. (set #del5 "Recognize a diskchange")
  154. (set #del6 "Add/Remove filenotes")
  155. (set #del7 "Lock files from deletion")
  156. (set #del8 "Search a file")
  157. (set #del9 "Sort a file")
  158. (set #del10 "Controls tape backup devices")
  159. (set #del11 "Make a disk link")
  160. (set #del12 "Remove recoverable ram drive")
  161. (set #del13 "Shows location of CMD file")
  162. (set #del14 "Changes task priority")
  163. (set #del15 "Joins/Merges files")
  164. (set #del16 "Disables any fast memory")
  165. ;--------------
  166. (set #full-delete
  167. (cat "\nCan I delete the file '%s'?\n\n"
  168.     "The function of this program:\n\n"
  169.     "%s"
  170. ))
  171. (set #full-delete-help
  172. (cat "\nYour system disk doesn't offer the disk space required for "
  173.     "installing the printer driver. The installation program "
  174.     "can now delete files from your system disk that are often unused. "
  175.     "If you need one of the programs, you might skip deletion. "
  176.     "However, skipping might result in the installation failing "
  177.     "if not enough disk space could be freed. "
  178. ))
  179. (set #full-delete-1
  180. (cat "Yes, delete."
  181. ))
  182. (set #full-delete-2
  183. (cat "No, continue"
  184. ))
  185. ;--------------
  186. (set #tofull
  187. (cat "Your disk/device %s: still doesn't offer enough free disk space "
  188.     "for installing the printer driver. The requested installation "
  189.     "requires at least %ld bytes of free disk space.\n"
  190.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  191. ))
  192. (set #tofull2
  193. (cat "Your disk/device %s: doesn't offer enough free disk space "
  194.     "for installing the printer driver. I couldn't find "
  195.     "any unnecessary files for deletion in order to make space free. Please have a look "
  196.     "at the files stored on the disk and delete any unnecessary ones. "
  197.     "The installation requires at least %ld bytes of free disk space.\n"
  198.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  199. ))
  200. ;--------------
  201. (set #nodevice
  202. (cat "\nWarning\n\n It seems the 'printer.device' file is not "
  203.     "available in your 'DEVS:' directory. This file is required "
  204.     "for printing and always comes with your original Workbench "
  205.     "disks.\n\n"
  206.     "Please make the printer.device file available after installing the Canon software."
  207. ))
  208. ;--------------
  209. (set #nopardevice
  210. (cat "\nWarning\nIt seems the 'parallel.device' file is not "
  211.     "available in your 'DEVS:' directory. Unless you use the serial port or "
  212.     "an expansion board for printing, this file is required "
  213.     "for printing. It does come with your Workbench "
  214.     "disks. Without this file applications might be unable to access the printer port. \n\n"
  215.     "Please make the parallel.device file available after installing Canon software "
  216.     "if problems accessing the printer appear."
  217. ))
  218. ;--------------
  219. (set #noenv
  220. (cat "There is no volume/device/assign 'ENV:' available. "
  221.     "The 'ENV:' volume is usually created by your system's 'startup-sequence' "
  222.     "located in the 'S:' volume. It seems you are using a custom startup-sequence. "
  223.     "Please make sure there is an ENV: volume created by your system disk. "
  224.     "See your system and/or Canon software manual for help."
  225. ))
  226. ;--------------
  227. (set #noenvarc
  228. (cat "There is no volume/device/assign 'ENVARC:' available. "
  229.     "The 'ENVARC:' volume is usually created by your system during booting. "
  230.     "It seems you are using a custom boot procedure. "
  231.     "Please make sure there is an ENVARC: volume created by your system disk. "
  232.     "See your system and/or Canon software manual for help."
  233. ))
  234. ;--------------
  235. (set #ask-prefs
  236. (cat "\nIn which disk or drawer should the printer preferences program(s) be installed?"
  237. ))
  238. (set #ask-prefsdisk
  239. (cat "\nSelect the %ld. empty disk."
  240. ))
  241. (set #ask-prefs-help
  242. (cat "\nThis section lets you choose in which drawer or on which disk the "
  243.     "Canon printer driver preferences program should be installed. "
  244.     "These should normally go into the \"sys:prefs\" directory of your system "
  245.     "disk.\n\n"
  246.     @askdir-help
  247. ))
  248. ;--------------
  249. (set #finalmsg
  250. (cat "Your requested driver has been installed. The name of the driver is\n\"%s"
  251.     "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  252.     "The Canon driver preferences program has been saved as\n\"%s"
  253.     "\"\nand should now be used to adjust the driver to your needs.\n"
  254.     "Please adjust all settings to your printer. Use the Preset menu if available."
  255. ))
  256. ;--------------
  257. (set #wrongdither
  258. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG.\n\n"
  259.     "Please select \"Ordered\" dithering in preferences "
  260.     "(in \"PrinterGfx\"). Always set the Workbench preferences to \"Ordered\" "
  261.     "Dithering is controlled by the Canon \"%s\" preferences program.\n"
  262.     "Also select a density above 2 and disable the color correction\n"
  263.     "I will now try to start Workbench preferences for you."
  264. ))
  265. ;--------------
  266. (set #ask-studio
  267. (cat "\nSelect the disk or drawer the 'CanonStudio' application drawer should be created in?"
  268. ))
  269. (set #ask-studiodisk
  270. (cat "\nSelect the %ld. empty disk."
  271. ))
  272. (set #ask-studio-help
  273. (cat "\nThis section lets you choose in which drawer or on which disk the "
  274.     "CanonStudio application program should be installed. "
  275.     "The program can be installed to any disk/drawer you like. "
  276.     "The selected disk should have at least 350 KByte free space.\n\n"
  277.     @askdir-help
  278. ))
  279. ;--------------
  280. (set #tofullstudio
  281. (cat "Your disk/device %s: doesn't offer enough free disk space "
  282.     "for installing CanonStudio. The requested installation "
  283.     "requires at least %ld bytes of free disk space.\n"
  284.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  285. ))
  286. ;--------------
  287. (set #pagestream
  288. (cat "\n\nDo you want to install a driver for the "
  289.     "PageStream 2.2x DTP program?\n\nNote: a PageStream 3.x CanonStudio "
  290.     "driver is shipped with the registered Version of CanonStudio."
  291. ))
  292. (set #pagestream-help
  293. (cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
  294.     "program. In case you own this DTP package, you can use this faster "
  295.     "printer driver, offering a 200%% speed increase.\n"
  296. ))
  297. (set #pagestream-yes
  298. (cat "Yes"
  299. ))
  300. (set #pagestream-no
  301. (cat "No"
  302. ))
  303. (set #ask-pagestream
  304. (cat "\nIn which drawer should the PageStream V2.2 drivers (BJ2x0, or CanonBJCx00) be saved?"
  305. ))
  306. (set #ask-pagestream-help
  307. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  308.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  309.     @askdir-help
  310. ))
  311. ;--------------
  312. (set #sorry
  313. (cat "\n\nSorry, this disk does not include the requested software. "
  314.     "There simply wasn't enough disk space left for your wanted driver. "
  315.     "Please contact your dealer or the Canon Hotline and ask for a different disk "
  316.     "containing a driver for your printer."
  317. ))
  318. ;--------------
  319. (set #sorry2
  320. (cat "\n\nSorry, this disk does not include the requested software. "
  321.      "The BJC 7000 driver software is still under development. Please "
  322.      "check out the european Canon WWW  or AmiNet Internet sites for "
  323.      "the latest software."
  324. ))
  325. ;---------------
  326. (set #setupmsg
  327. (cat "\nA new %s program was installed for you in:\n\n%s\n "
  328. ))
  329. ;---------------
  330. (set #madpgsupdate2
  331. (cat    "\n\nA PageStream V2.x driver named\n\n'%s'\n\nwas installed for your printer."
  332. ))
  333. ;---------------
  334. (set #foundstudio
  335. (cat "\nI found an already installed registered CanonStudio or Studio printing program in a drawer on your system. "
  336.      "It's recommended to NOT install the limited version of this disk if a full version is already installed. "
  337.      "\n\nShall I install beside or overwrite the existing version with the limited CanonStudio version of this disk?"
  338. ))
  339. (set #foundstudio-help
  340. (cat "Select YES and a drawer can be selected where to install the limited version of CanonStudio.\n"
  341.     "Select NO and the installation of CanonStudio will be skipped.\n"
  342. ))
  343. ;---------------
  344. (set #ask-docs
  345. (cat "\nIn which drawer should the documentation be saved?"
  346. ))
  347. (set #ask-docs-help
  348. (cat "\nThis section lets you choose in which drawer the Canon driver documentation should be saved.\n\n"
  349.     @askdir-help
  350. ))
  351. (set #abortdocs
  352. (cat "\nThis installation requires >120000 bytes free on the volume "
  353.     "where you wish to install the documentation. Please make this space "
  354.     "available and then re-install.\n\n"
  355. ))
  356. ;--------------
  357. (set docfile "Readme")
  358. ;--------------
  359. (set #waitmsg
  360. (cat "\n\n\n\nWorking. Please wait..."
  361. ))
  362.  
  363.  
  364.  
  365. ;**** German
  366. (if (= @language "deutsch")
  367. (
  368.     (set #welcome
  369.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  370.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  371.     ))
  372.     (set #welcome-pirate
  373.     (cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
  374.         "Copyright (C)1992-98 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
  375.         "\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
  376.         "VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
  377.     ))
  378.     (set #bad-kick
  379.     (cat    "\nIhre System-Software ist sehr alt. "
  380.         "Sie brauchen mindestens Kickstart 2.04 für alle CanonDisk Programme."
  381.     ))
  382.     ;--------------
  383.     (set #diskbased
  384.     (cat "Auf welche Geräte wollen Sie die Canon Software installieren?"
  385.     ))
  386.     (set #diskbased-choices1
  387.     (cat "Auf eine Festplatte."
  388.     ))
  389.     (set #diskbased-choices2
  390.     (cat "2 oder mehr Diskettenstationen - Ohne Festplatte."
  391.     ))
  392.     (set #diskbased-choices3
  393.     (cat "Eine Diskettenstation - Ohne Festplatte."
  394.     ))
  395.     (set #diskbased-help
  396.     (cat "\nDie CanonDisk benötigt mehr freien  Speicherplatz als auf einer Diskette "
  397.         "vorhanden ist. Das Installationsprogramm hilft Ihnen bei der "
  398.         "Installation auf mehrere Disketten.\n\n"
  399.         @askoptions-help
  400.     ))
  401.     ;--------------
  402.     (set #w-studio
  403.     (cat "Welche Programme der Canon-Software wollen Sie installieren?"
  404.     ))
  405.     (set #w-studio-help
  406.     (cat "\nDie Canon-Software besteht im wesentlichen aus zwei von einander "
  407.         "unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
  408.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  409.         @askoptions-help
  410.     ))
  411.     (set #w-studio-choices1
  412.     (cat "Entfernen der Canon Treiber"
  413.     ))
  414.     (set #w-studio-choices2
  415.     (cat "Canon Druckertreiber"
  416.     ))
  417.     (set #w-studio-choices3
  418.     (cat "CanonStudio Druckprogramm"
  419.     ))
  420.     ;--------------
  421.     (set #format
  422.     (cat "\nSie benötigen %ld leere Diskette(n) um die gewünschte Software zu installieren. "
  423.         "Benutzen Sie den 'Format'-Menüpunkt der Workbench, um eine leere Diskette zu erstellen. "
  424.         "\n\nBenennen Sie die Disketten nach einem eindeutigen Namen (z.B. \"Canon\"). "
  425.     ))
  426.     ;--------------
  427.     (set #abortunpack
  428.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  429.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  430.     ))
  431.     ;--------------
  432.     (set #abortnochoice
  433.     (cat "Sie haben keine Option gewählt. Bitte starten Sie das Installations-Programm erneut\n"
  434.     ))
  435.     ;--------------
  436.     (set #cfm-delete
  437.     (cat "\n\nWarnung!\n\n"
  438.         "Machen Sie eine Sicherheitskopie, bevor Sie alte Canon Treiber löschen. \n"
  439.         "Soll ich jetzt wirklich alle Treiber löschen?\n\n"
  440.     ))
  441.     (set #cfm-delete-help
  442.     (cat "\nDas Installationsskript löscht jetzt alle alten Canon-Treiber und deren Einstellungen.\n\n"
  443.     ))
  444.     (set #cfm-delete-1
  445.     (cat "Ja, löschen"
  446.     ))
  447.     (set #cfm-delete-2
  448.     (cat "Nein, weiter"
  449.     ))
  450.     ;--------------
  451.     (set #w-emul
  452.     (cat "Was für einen Drucker besitzen Sie?"
  453.     ))
  454.     (set #w-emul-help
  455.     (cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  456.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  457.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  458.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  459.         "Versuchen Sie daher ruhig mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  460.         @askchoice-help
  461.     ))
  462.     ;--------------
  463.     (set #w-driver #w-emul)
  464.     (set #w-driver-help #w-emul-help)
  465.     ;--------------
  466.     (set #ask-sys
  467.     (cat "\nIn welche Disk oder Schublade soll der Canon-Druckertreiber kopiert werden?"
  468.     ))
  469.     (set #ask-sys-help
  470.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  471.         "Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
  472.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  473.         @askdir-help
  474.     ))
  475.     ;--------------
  476.     (set #yellspace
  477.     (cat "\nDiese Installation benötigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
  478.         "Sie können jetzt unnötige Dateien von der Disk löschen. Sie können auch fortfahren mit der "
  479.         "Installation und das Installationsprogramm wird versuchen, unnötige Dateien zu löschen. "
  480.         "Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelöscht wird.\n"
  481.         "MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LÖSCHEN.\n"
  482.     ))
  483.     ;--------------
  484.     (set #tdel0 "Utilities/Clock")
  485.     (set #tdel1 "Devs/Printers/Generic")
  486.     (set #tdel2 "C/SetFont")
  487.     (set #tdel3 "C/Edit")
  488.     (set #tdel4 "C/Eval")
  489.     (set #tdel5 "C/DiskChange")
  490.     (set #tdel6 "C/FileNote")
  491.     (set #tdel7 "C/Lock")
  492.     (set #tdel8 "C/Search")
  493.     (set #tdel9 "C/Sort")
  494.     (set #tdel10 "C/MagTape")
  495.     (set #tdel11 "C/MakeLink")
  496.     (set #tdel12 "C/RemRad")
  497.     (set #tdel13 "C/Which")
  498.     (set #tdel14 "C/ChangeTaskPri")
  499.     (set #tdel15 "C/Join")
  500.     (set #tdel16 "System/NoFastMem")
  501.     
  502.     (set #del0 "Zeigt die Uhrzeit an")
  503.     (set #del1 "Ein simpler ASCII-Text Druckertreiber")
  504.     (set #del2 "Definiert den Systemzeichensatz")
  505.     (set #del3 "Ein Zeileneditor")
  506.     (set #del4 "Löst mathematische Ausdrücke")
  507.     (set #del5 "FÜhrt einen Diskwechsel aus")
  508.     (set #del6 "Editieren von Dateikommentaren")
  509.     (set #del7 "Schützt Dateien vor dem Löschen")
  510.     (set #del8 "Sucht eine Datei")
  511.     (set #del9 "Sortiert eine Datei")
  512.     (set #del10 "Kontrolliert Streamer")
  513.     (set #del11 "Erzeugt Disk-Links")
  514.     (set #del12 "Entfernt die Resetfeste-Ram-Disk")
  515.     (set #del13 "Zeigt den Speicherort eines Befehls")
  516.     (set #del14 "Verändert die Task-Priorität")
  517.     (set #del15 "Verbindet Dateien")
  518.     (set #del16 "Entfernt Fast-Speicher")
  519.     ;--------------
  520.     (set #full-delete
  521.     (cat "\nKann ich die Datei '%s' löschen?\n\n"
  522.         "Aufgabe der Datei:\n\n"
  523.         "%s"
  524.     ))
  525.     (set #full-delete-help
  526.     (cat "\nIhre Systemdiskette verfügt nicht über genug Speicherplatz, um einen Druckertreiber zu installieren. "
  527.         "Das Installationsprogramm kann jetzt für Sie unnötige Dateien löschen. "
  528.         "Sie müssen nicht alle angezeigten Dateien löschen, doch kann dies dazu führen, "
  529.         "das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende geführt werden kann. "
  530.     ))
  531.     (set #full-delete-1
  532.     (cat "Ja, löschen."
  533.     ))
  534.     (set #full-delete-2
  535.     (cat "Nein!"
  536.     ))
  537.     ;--------------
  538.     (set #tofull
  539.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  540.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  541.         "die Installation des gewünschten Treibers.\n"
  542.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  543.         "erneut die Installation.\n\n"
  544.     ))
  545.     (set #tofull2
  546.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  547.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  548.         "die Installation des gewünschten Treibers. "
  549.         "Es konnten keine unnötigen Dateien zum Löschen vom Installationsprogramm "
  550.         "gefunden werden. "
  551.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  552.         "erneut die Installation.\n\n"
  553.     ))
  554.     ;--------------
  555.     (set #nodevice
  556.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'printer.device' "
  557.         "im 'DEVS:'-Verzeichnis. Diese Datei wird zum Drucken von Programmen benötigt und "
  558.         "ist Teil jeder richtigen Workbench-Diskette.\n\n"
  559.         "Bitte machen Sie die 'printer.device' Datei nach der Installation verfügbar."
  560.     ))
  561.     ;--------------
  562.     (set #nopardevice
  563.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'parallel.device' "
  564.         "im 'DEVS:'-Verzeichnis. Sollten Sie nicht über eine Schnittstellenkarte oder "
  565.         "den Seriellen-Port des Amigas drucken, wird diese Datei zum Drucken dringends benötigt. "
  566.         "Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
  567.         "Bitte machen Sie die 'parallel.device' Datei nach der Installation verfügbar."
  568.     ))
  569.     ;--------------
  570.     (set #noenv
  571.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  572.         "Canon Treiber speichern Einstellungen in dieser Schublade. "
  573.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  574.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  575.         "Startup-Sequence.\n"
  576.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
  577.         "neuem!\n\n"
  578.     ))
  579.     ;--------------
  580.     (set #noenvarc
  581.     (cat "\nLeider ist keine Schublade mit dem Namen \"ENVARC:\" auffindbar!\n"
  582.         "Canon Treiber speichern Einstellungen in dieser Schublade. "
  583.         "Normalerweise wird \"ENVARC:\" von der standard Startup-Sequence von "
  584.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  585.         "Startup-Sequence.\n"
  586.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
  587.         "neuem!\n\n"
  588.     ))
  589.     ;--------------
  590.     (set #ask-prefs
  591.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  592.         "(engl. Preferences) kopiert werden?"
  593.     ))
  594.     (set #ask-prefsdisk
  595.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  596.     ))
  597.     (set #ask-prefs-help
  598.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  599.         "Schublade das Canon Voreinsteller-Programm kopiert werden soll. "
  600.         "Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" wählen.\n\n"
  601.         @askdir-help
  602.     ))
  603.     ;--------------
  604.     (set #finalmsg
  605.     (cat "Der gewünschte Canon Treiber wurde unter dem Namen\n\"%s"
  606.         "\"\ninstalliert und sollte jetzt in dem Workbench \"Printer\"-Voreinsteller eingestellt werden.\n"
  607.         "Der Canon Treiber-Voreinsteller wurde unter dem Namen\n\"%s"
  608.         "\"\ngespeichert und dient zum Einstellen zusätzlicher Funktionen des Treibers.\n"
  609.     ))
  610.     ;--------------
  611.     (set #wrongdither
  612.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  613.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  614.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  615.         "Programms. Bitte wählen Sie auch eine Dichte größer 2 und "
  616.         "schalten Sie die Farbkorrektur in PrinterGfx ab.\n"
  617.         "Zur Erleichterung wird das Programm "
  618.         "für die Voreinstellungen jetzt versucht zu starten..."
  619.     ))
  620.     ;--------------
  621.     (set #ask-studio
  622.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das CanonStudio-Verzeichnis angelegt werden soll."
  623.     ))
  624.     (set #ask-studiodisk
  625.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  626.     ))
  627.     (set #ask-studio-help
  628.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  629.         "Schublade das CanonStudio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
  630.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  631.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 350KByte "
  632.         "an freien Speicherplatz besitzen.\n\n"
  633.         @askdir-help
  634.     ))
  635.     ;--------------
  636.     (set #tofullstudio
  637.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz. "
  638.         "Zur Installation von CanonStudio sind mindestens %ld Bytes notwendig. "
  639.         "Bitte machen Sie Speicherplatz verfügbar und installieren Sie erneut.\n\n"
  640.     ))
  641.     ;--------------
  642.     (set #pagestream
  643.     (cat "\n\nWollen Sie einen Treiber für das DTP-Programm "
  644.         "PageStream V2.2x (nicht V3.x!) installieren?\n\n"
  645.         "Achtung: einen PageStream 3.x CanonStudio Treiber "
  646.         "erhalten Sie beim registrieren von CanonStudio."
  647.     ))
  648.     (set #pagestream-help
  649.     (cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
  650.         "PageStream V2.2. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  651.         "mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
  652.     ))
  653.     (set #pagestream-yes
  654.     (cat "Ja"
  655.     ))
  656.     (set #pagestream-no
  657.     (cat "Nein"
  658.     ))
  659.     (set #ask-pagestream
  660.     (cat "\nIn welche Schublade sollen die PageStream-Treiber (BJ2x0 oder CanonBJCx00) "
  661.         "kopiert werden?"
  662.     ))
  663.     (set #ask-pagestream-help
  664.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  665.         "Druckertreiber wählen. Normalerweise sollte die "
  666.         "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  667.         @askdir-help
  668.     ))
  669.     ;--------------
  670.     (set #sorry
  671.     (cat "\n\nLeider war auf dieser Canon Diskette nicht mehr genug Platz für "
  672.         "den von Ihnen gewünschten Druckertreiber. Der gewünschte Treiber "
  673.         "befindet sich deshalb auf einer weiteren Treiberdiskette von Canon. "
  674.         "Bitte fordern Sie einen Treiber für Ihren Drucker gesondert von "
  675.         "Ihrem Händler oder der Canon Hotline an."
  676.     ))
  677.     ;--------------
  678.     (set #sorry2
  679.     (cat "\n\nArgghhhh.....\nLeider enthält diese Diskette keinen BJC 7000 Treiber. "
  680.          "Dieser ist noch in Entwicklung.\nFür Internet-Benutzer: Sie können sich im Internet über "
  681.          "www.canon.de den Treiber bei Verfügbarkeit holen."
  682.     ))
  683.     ;--------------
  684.     (set #setupmsg
  685.     (cat "\nEin neues %s Programm wurde für Sie installiert in der Schublade:\n\n%s\n "
  686.     ))
  687.     ;--------------
  688.     (set #madpgsupdate2
  689.     (cat    "\n\nEin PageStream V2.x Treiber mit dem Namen\n\n'%s'\n\nwurde für Ihren Drucker installiert."
  690.     ))
  691.     ;--------------
  692.     (set #foundstudio
  693.     (cat "\nIhr System enthält bereits scheinbar schon eine registrierte Version von CanonStudio oder Studio. "
  694.          "Sie sollten daher nicht unnötig die eingeschränkte Version von CanonStudio installieren. "
  695.          "\n\nWollen Sie CanonStudio wirklich installieren?"
  696.     ))
  697.     (set #foundstudio-help
  698.     (cat "Wählen Sie JA, wird die eingeschränkte Version von CanonStudio in ein gewünschtes "
  699.          "Verzeichnis installiert.\nBei NEIN, wird keine eingeschränkte Version von CanonStudio "
  700.          "installiert."
  701.     ))
  702.     ;--------------
  703.     (set #ask-docs
  704.     (cat "\nIn welche Schublade soll die Treiber-Anleitung kopiert werden?"
  705.     ))
  706.     (set #ask-docs-help
  707.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die Anleitung "
  708.         "der Canon Treiber wählen.\n\n"
  709.         @askdir-help
  710.     ))
  711.     (set #abortdocs
  712.     (cat "\nDie Anleitung benötigt ca. 120000 Bytes "
  713.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  714.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  715.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  716.         "eine Installation!\n\n"
  717.     ))
  718.     ;--------------
  719.     (set docfile "Liesmich")
  720.     ;--------------
  721.     (set #waitmsg
  722.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  723.     ))
  724. ))
  725.  
  726. ; **** Texte en français
  727. (if (= @language "français")
  728. (
  729.     (set #welcome
  730.     (cat "\nIntermédiaire : les pilotes d'imprimantes sont installés sur le disque système courant.\n"
  731.         "Expert:  les pilotes d'imprimantes peuvent être installés sur un disque quelconque.\n\n"
  732.     ))
  733.     (set #welcome-pirate
  734.     (cat "\nBienvenue dans CANONDISK: la disquette de gestion\n"
  735.         " des imprimantes Canon!\n\n"
  736.         "Copyright (C) 1992-98 par Wolf Faust\n"
  737.         "Distribution : Canon Europe N.V.\n"
  738.         "\nCE DISQUE NE PEUT ETRE DISTRIBUE\n"
  739.         "SANS PERMISSION ECRITE DE WOLF FAUST\n OU DE CANON EUROPE N.V.!\n"
  740.     ))
  741.     (set #bad-kick
  742.     (cat    "\nVotre logiciel système est trop ancien. "
  743.         "Utiliser le Kickstart 2.04 ou plus récent pour tous programmes Canon  "
  744.         "accessibles à la souris. "
  745.     ))
  746.     ;--------------
  747.     (set #diskbased
  748.     (cat "Quel type de disque système utilisez-vouz ?"
  749.     ))
  750.     (set #diskbased-choices1
  751.     (cat "Disque dur ou apparenté"
  752.     ))
  753.     (set #diskbased-choices2
  754.     (cat "Deux ou plusieurs unités de disques"
  755.     ))
  756.     (set #diskbased-choices3
  757.     (cat "Une seule unité de disque"
  758.     ))
  759.     (set #diskbased-help
  760.     (cat "\nLe programme Canon nécessite davantage d'espace disque que ce qui "
  761.         "est disponible sur une seule disquette. L'installation aidera les utilisateurs "
  762.         "de systèmes à disquettes à obtenir suffisamment d'espace disque pour "
  763.         "installer le logiciel Canon.\n\n"
  764.         @askoptions-help
  765.     ))
  766.     ;--------------
  767.     (set #w-studio
  768.     (cat "Que désirez-vous installer ?"
  769.     ))
  770.     (set #w-studio-help
  771.     (cat "\nCe disque est organisé en deux parties indépendantes : "
  772.         "les pilotes d'imprimantes et le programme d'impression. "
  773.         "Choisissez maintenant ce que vous souhaitez installer!\n\n".
  774.         @askoptions-help
  775.     ))
  776.     (set #w-studio-choices1
  777.     (cat "Drivers Canon non installés"
  778.     ))
  779.     (set #w-studio-choices2
  780.     (cat "pilotes d'imprimantes Canon"
  781.     ))
  782.     (set #w-studio-choices3
  783.     (cat "logiciel CanonStudio"
  784.     ))
  785.     ;--------------
  786.     (set #format
  787.     (cat "\nVous avez besoin de %ld disquettes vides afin d'installer le logiciel requis. "
  788.         "Générez la disquette vide en utilisant l'option 'Format Disk...' du menu Workbench.\n\n"
  789.         "Donnez aux disquettes des noms (par exemple \"Canon\" qui vous aideront à les identifier ultérieurement."
  790.     ))
  791.     ;--------------
  792.     (set #abortunpack
  793.     (cat "\nErreur en cours de décompression/écriture d'un fichier ! "
  794.         "L'erreur s'est produite pendant la décompression du fichier :\n\n\"%s\"\n\n"
  795.     ))
  796.     ;--------------
  797.     (set #abortnochoice
  798.     (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  799.     ))
  800.     ;--------------
  801.     (set #cfm-delete
  802.     (cat "\n\nLes réglages de l'ancien pilote Canon peuvent-ils être effacés ?"
  803.     ))
  804.     (set #cfm-delete-help
  805.     (cat "\nVous pouvez maintenant supprimer les anciens drivers Canon et leurs paramètres.\n\n"
  806.     ))
  807.     (set #cfm-delete-1
  808.     (cat "Oui, effacer"
  809.     ))
  810.     (set #cfm-delete-2
  811.     (cat "Non"
  812.     ))
  813.     (set #w-emul
  814.     (cat "Quelle est votre imprimante ?"
  815.     ))
  816.     (set #w-emul-help
  817.     (cat "\nCe disque contient plusieurs pilotes pour différentes "
  818.         "imprimantes Canon. "
  819.         "Au cas où votre imprimante ne figurerait pas dans la liste, reportez vous à son manuel pour "
  820.         "trouver les émulations acceptées par votre imprimante.\n\n"
  821.         "NOTE : les imprimantes acceptent souvent plusieurs émulations. "
  822.         "Il vous faudra peut-être tester plusieurs émulations avant de trouver "
  823.         "celle qui convient le mieux à vos besoins\n\n"
  824.         @askchoice-help
  825.     ))
  826.     ;--------------
  827.     (set #w-driver #w-emul)
  828.     (set #w-driver-help #w-emul-help)
  829.     ;--------------
  830.     (set #ask-sys
  831.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
  832.     ))
  833.     (set #ask-sys-help
  834.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  835.         "installer les pilotes d'imprimantes Canon. "
  836.         "Normalement le répertoire  \"devs:printers\" du disque système.\n\n"
  837.         @askdir-help
  838.     ))
  839.     ;--------------
  840.     (set #yellspace
  841.     (cat "\nCette installation nécessite >%ld octets libres sur le disque \"%s\". "
  842.         "Vous pouvez maintenant supprimer les fichiers inutiles en utilisant les menus "
  843.         "Workbench ou Shell. Ce script d'installation peut également supprimer des "
  844.         "fichiers maintenant afin de libérer de l'espace. "
  845.         "Le système vous demandera confirmation avant de supprimier chaque fichier.\n\n"
  846.         "FAITES UNE SAUVEGARDE DE VOS DISQUES SYSTEMES AVANT DE SUPPRIMER DES FICHIERS.\n\n"
  847.     ))
  848.     ;--------------
  849.     (set #tdel0 "Utilities/Clock")
  850.     (set #tdel1 "Devs/Printers/Generic")
  851.     (set #tdel2 "C/SetFont")
  852.     (set #tdel3 "C/Edit")
  853.     (set #tdel4 "C/Eval")
  854.     (set #tdel5 "C/DiskChange")
  855.     (set #tdel6 "C/FileNote")
  856.     (set #tdel7 "C/Lock")
  857.     (set #tdel8 "C/Search")
  858.     (set #tdel9 "C/Sort")
  859.     (set #tdel10 "C/MagTape")
  860.     (set #tdel11 "C/MakeLink")
  861.     (set #tdel12 "C/RemRad")
  862.     (set #tdel13 "C/Which")
  863.     (set #tdel14 "C/ChangeTaskPri")
  864.     (set #tdel15 "C/Join")
  865.     (set #tdel16 "System/NoFastMem")
  866.  
  867.     (set #del0 "Affice l'heure système")
  868.     (set #del1 "Un driver d'imprimante texte générique")
  869.     (set #del2 "Définit la police système")
  870.     (set #del3 "Un éditor ligne")
  871.     (set #del4 "Calcule les expressions mathématiques")
  872.     (set #del5 "Détecte un changement de disquette")
  873.     (set #del6 "Ajoute/supprime les notes de fichiers")
  874.     (set #del7 "Verrouille les fichiers contre la suppression")
  875.     (set #del8 "Cherche un fichier")
  876.     (set #del9 "Tri un fichier")
  877.     (set #del10 "Contrôle les systèmes de backup sur bande")
  878.     (set #del11 "Crée une liason disque")
  879.     (set #del12 "Supprimer l'unite de RAM récupérable")
  880.     (set #del13 "Affiche la localisation d'un fichier CMD")
  881.     (set #del14 "Modifie la priorité des tâches")
  882.     (set #del15 "Joint/fusionne les fichiers")
  883.     (set #del16 "Désactive toute mémoire rapide")
  884.     ;--------------
  885.     (set #full-delete
  886.     (cat "\nLe fichier '%s' peut-il être supprimé ?\n\n"
  887.         "La fonction de ce programme :\n\n"
  888.         "%s"
  889.     ))
  890.     (set #full-delete-help
  891.     (cat "Votre disque système ne dispose pas de l'espace disque nécessaire "
  892.         "pour installer le driver d'imprimante. Le programme d'installation peut "
  893.         "maintenant supprimer des fichiers de votre disque système la plupart du "
  894.         "temps non utilisés. Si vous avez besoin de l'un de ces fichiers, vous "
  895.         "puvez annuler la suppresion. Cette annulation peut cependant provoquer "
  896.         "l'echec de l'installation si l'espace disque libéré est insuffisant."
  897.     ))
  898.     (set #full-delete-1
  899.     (cat "Qui, supprimer."
  900.     ))
  901.     (set #full-delete-2
  902.     (cat "Non, continuer."
  903.     ))
  904.     ;--------------
  905.     (set #tofull
  906.     (cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
  907.         "pour installer le driver d'imprimante. L'installation demendée nécessite au moins "
  908.         "%ld octets d'espace libre.\n"
  909.         "Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
  910.     ))
  911.     (set #tofull2
  912.     (cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
  913.         "pour installer le driver d'imprimante. Impossible de trouver des fichiers à "
  914.         "supprimer pour libérer de l'espace. L'installation demendée nécessite au moins "
  915.         "%ld octets d'espace libre.\n"
  916.         "Examinez les fichiers stockés sur votre disque et supprimez ceux qui ne sont pas utiles. "
  917.         "Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
  918.     ))
  919.     ;--------------
  920.     (set #nodevice
  921.     (cat "\nAttention\n\nIl semble que le fichier 'printer.device' ne soit pas "
  922.         "disponible dans votre répertoire 'DEVS:'. Ce fichier est nécessaire "
  923.         "pour imprimer et est toujours livré avec les disquettes Workbench.\n\n"
  924.         "Vous devez rendre ce fichier disponible après installation."
  925.     ))
  926.     ;--------------
  927.     (set #nopardevice
  928.     (cat "\nAttention\n\nIl semble que le fichier 'parallel.device' ne soit pas "
  929.         "disponible dans votre répertoire 'DEVS:'. A moins que vous n'utilisiez le "
  930.         "port série ou une carte d'extension. Il est livré avec vos disquettes Workbench. "
  931.         "Sans ce fichier, les applications ne peuvent pas accéder au port de "
  932.         "l'imprimante.\n\n"
  933.         "Rendez ce fichier disponible après installation de CanonDisk si des "
  934.         "problèmes apparaissent pour accéder à l'imprimante."
  935.     ))
  936.     ;--------------
  937.     (set #noenv
  938.     (cat "Il n'y a pas de volume/péripherique/assign 'ENV:' disponible. "
  939.         "Le volume 'ENV:' est généralement créé par la séquence de "
  940.         "démarrage de votre sysème localisé dans le volume 'S:'. Il semble que vous "
  941.         "utilisiez une séquence de démarrage personnalisée. "
  942.         "Assurez-vous qu'il existe un volume 'ENV:' créé par votre disque système. "
  943.         "Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
  944.     ))
  945.     ;--------------
  946.     (set #noenvarc
  947.     (cat "Il n'y a pas de volume/péripherique/assign 'ENVARC:' disponible. "
  948.         "Le volume 'ENVARC:' est généralement créé par votre système pendant l'initialisation. "
  949.         "Il semble que vous "
  950.         "utilisiez une procédure d'initialisation personnalisée. "
  951.         "Assurez-vous qu'il existe un volume 'ENVARC:' créé par votre disque système. "
  952.         "Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
  953.     ))
  954.     ;--------------
  955.     (set #ask-prefs
  956.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les préférences d'imprimantes Canon ?"
  957.     ))
  958.     (set #ask-prefsdisk
  959.     (cat "\nSélectionnez le disque vide %ld."
  960.     ))
  961.     (set #ask-prefs-help
  962.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  963.         "installer les préférences d'imprimantes Canon. "
  964.         "Normalement le répertoire  \"sys:prefs\" du disque système.\n\n"
  965.         @askdir-help
  966.     ))
  967.     ;--------------
  968.     (set #finalmsg
  969.     (cat "Le pilote que vous avez choisi est installé sous le nom de\n\"%s"
  970.         "\"\net devrait être sélectionné dans le programme de préférences du Workbench \"Printer\".\n"
  971.         "Le programme de préférences des pilotes Canon a été sauvé sous le nom :\n\"%s"
  972.         "\"\net devrait être utilisé pour modifier le comportement de l'imprimante selon vos besoins.\n"
  973.     ))
  974.     ;--------------
  975.     (set #wrongdither
  976.     (cat "\n\nATTENTION : les préférences du Workbench sont mal règlées\n\n"
  977.         "Choisir \"Estompage\" \"ordonné\" (dans \"PrinterGfx\")."
  978.         "Also select a density above 2 and disable the color correction\n\n"
  979.         " Nous allons maintenant essayer de lancer les préférences pour vous."
  980.     ))
  981.     ;--------------
  982.     (set #ask-studio
  983.     (cat "\nDans quel répertoire souhaitez-vous installer le logiciel CanonStudio ?"
  984.     ))
  985.     (set #ask-studiodisk 
  986.     (cat "\nSélectionnez le disque vide %ld."
  987.     ))
  988.     (set #ask-studio-help
  989.     (cat "\nCette section vous permet de choisir le disque ou le répertoire où "
  990.         "installer CanonStudio.\n\n"
  991.         "The program can be installed to any disk/drawer you like. "
  992.         "Le disque sélectionné doit avoir au moins 350 Ko d'espace libre.\n\n"
  993.         @askdir-help
  994.     ))
  995.     ;--------------
  996.     (set #tofullstudio
  997.     (cat "Votre disque/péripherique %s: n'a pas suffisamment d'espace disque "
  998.         "disponible pour installer CanonStudio. L'installation demenadée nécessite "
  999.         "au moins %ld octets d'espace libre.\n"
  1000.         "Après suppression, déplacement des fichiers inutiles, recommencez l'installation.\n\n"
  1001.     ))
  1002.     ;--------------
  1003.     (set #pagestream
  1004.     (cat "\n\nDésirez-vous installer un pilote pour Canon "
  1005.         "fonctionnant avec le logiciel de PAO PageStream 2.x (non V3) ?\n\n"
  1006.     ))
  1007.     (set #pagestream-help
  1008.     (cat "\nCe disque contient un pilote spécialement adapté à PageStream 2.x "
  1009.         "Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
  1010.         " qui permet d'accroître la vitesse d'impression de 200%%.\n"
  1011.     ))
  1012.     (set #pagestream-yes
  1013.     (cat "Oui"
  1014.     ))
  1015.     (set #pagestream-no
  1016.     (cat "Non"
  1017.     ))
  1018.     (set #ask-pagestream
  1019.     (cat "\nDans quel tiroir souhaitez-vous installer les pilotes PageStream (BJ2x0, CanonBJCx00) ?"
  1020.     ))
  1021.     (set #ask-pagestream-help
  1022.     (cat "\nCette section vous permet de choisir le tiroir où sauver les pilotes pour PageStream. "
  1023.         "Normallement le tiroir \"Printers\" de PageStream.\n\n"
  1024.         @askdir-help
  1025.     ))
  1026.     ;--------------
  1027.     (set #sorry
  1028.     (cat "\n\nce disque n'inclut pas le logiciel demandé. "
  1029.         "Il n'y avait pas suffisamment d'espace disque pour le driver souhaité. "
  1030.         "Contactez votre revendeur ou la Hotline Canon et demandez une "
  1031.         "disquette différente, contenant un driver pour votre imprimante."
  1032.     ))
  1033.     ;--------------
  1034.     (set #ask-docs
  1035.     (cat "\nDans quel tiroir faut-il sauver la documentation ?"
  1036.     ))
  1037.     (set #ask-docs-help
  1038.     (cat "\nCette section vous propose de choisir le répertoire où sera sauvée la documentation Canon.\n\n"
  1039.         @askdir-help
  1040.     ))
  1041.     (set #abortdocs
  1042.     (cat "\nCette installation occupe >120000 octets sur le disque "
  1043.         "où vous souhaitez installer la documentation. Assurez-vous que cet "
  1044.         "espace est disponible avant de ré-installer.\n\n"
  1045.     ))
  1046.     ;--------------
  1047.     (set docfile "Readme")
  1048.     ;--------------
  1049.     (set #waitmsg
  1050.     (cat "\n\n\n\nInstaller travaille ! Veuillez attendre..."
  1051.     ))
  1052. ))
  1053.  
  1054. ; **** START
  1055.  
  1056. (procedure Meter
  1057. (
  1058.     (set accum    (+ accum addmeter))
  1059.     (complete (/ (* accum 100) total))
  1060. ))
  1061.  
  1062. (complete 0)
  1063. (welcome #welcome)
  1064. (complete 1)
  1065. (message #welcome-pirate)
  1066.  
  1067. (set total        0)
  1068. (set accum        0)
  1069. (set addmeter        0)
  1070. (makeassign "CanonDisk_Install" (pathonly @icon))
  1071.  
  1072. ; **** sure we are running under a 2.04 or higher ROM???
  1073. (if (< (/ (getversion) 65536) 37)
  1074.     (abort #bad-kick)
  1075. )
  1076.  
  1077. ; **** Does this system offer a hard disk?   0=HD  1=2nd floppy  2=one floppy
  1078. (set diskbased (askchoice (prompt #diskbased)
  1079.     (help #diskbased-help)
  1080.     (choices #diskbased-choices1 #diskbased-choices2 #diskbased-choices3)
  1081.     (default 0)
  1082.     )
  1083. )
  1084. ; **** Wich parts should get installed: driver &-| CanonStudio?
  1085. (set studio (askoptions (prompt #w-studio)
  1086.     (help #w-studio-help)
  1087.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3)
  1088.     (default (if (> diskbased 1) %111 %111))  ; use 111 for second %110 if deletion is wanted as default for non-single floppy systems
  1089.     )
  1090. )
  1091. ; **** determine max. meter for complete()
  1092. (set n 0)
  1093. (while (set size (select n 5    ; delete
  1094.     42       ; driver
  1095.     21       ; application
  1096.     0 ))
  1097. (
  1098.     (if (IN studio n)
  1099.     (
  1100.         (set total (+ total size))
  1101.     ))
  1102.     (set n (+ n 1))
  1103. ))
  1104. (set disknumber 1)
  1105. (if (> diskbased 0)
  1106. (
  1107.     (set format 0)
  1108.     (if (IN studio 1)
  1109.     (
  1110.         (set format 1)
  1111.     ))
  1112.     (if (IN studio 2)
  1113.     (
  1114.         (set format 1)
  1115.     ))
  1116.     (if (> format 0)
  1117.     (
  1118.         (message (#format format))
  1119.     ))
  1120. ))
  1121. (set @default-dest "")
  1122. (if (> studio 0)
  1123. (
  1124.     (copyfiles (source "CanonDisk_Install:bin/check")
  1125.         (dest "T:")
  1126.         (nogauge)
  1127.     )
  1128.     (copyfiles (source "CanonDisk_Install:bin/lx")
  1129.         (dest "T:")
  1130.         (nogauge)
  1131.     )
  1132. )
  1133. (
  1134.     (abort #abortnochoice)
  1135. ))
  1136. ; **** delete old drivers/prefs
  1137. (if (IN studio 0)
  1138. (
  1139.     (set addmeter    1)
  1140.     (Meter)
  1141.     (if (askbool (prompt (#cfm-delete))
  1142.         (help (#cfm-delete-help ))
  1143.         (choices #cfm-delete-1 #cfm-delete-2)
  1144.         (default 1))
  1145.     (
  1146.         (set n 0)
  1147.         (while (set thisfile (select n  "Beep"
  1148.             "Time"
  1149.             "ResX"
  1150.             "ResY"
  1151.             "Dry"
  1152.             "GAdj"
  1153.             "CAdj"
  1154.             "MAdj"
  1155.             "YAdj"
  1156.             "GDit"
  1157.             "CDit"
  1158.             "MDit"
  1159.             "YDit"
  1160.             "Copies"
  1161.             "Type"
  1162.             "Type0"
  1163.             "Type1"
  1164.             "Type2"
  1165.             "Type3"
  1166.             "Type4"
  1167.             "Type5"
  1168.             "Type6"
  1169.             "Type7"
  1170.             "Type8"
  1171.             "Type9"
  1172.             "Type10"
  1173.             "Perf"
  1174.             "Mirror"
  1175.             "Sep"
  1176.             "Magenta"
  1177.             "Yellow"
  1178.             "Orient"
  1179.             "TDirect"
  1180.             "Top"
  1181.             "Tab"
  1182.             "Super"
  1183.             "Form"
  1184.             "Color"
  1185.             "GEmu"
  1186.             "TEmu"
  1187.             "Strip"
  1188.             "Quiet"
  1189.             "KAdj"
  1190.             "KDit"
  1191.             "GFeed"
  1192.             "PageLen"
  1193.             "GDirect"
  1194.             "Quality"
  1195.             "Compress"
  1196.             "Symbol"
  1197.             "CDitAlg"
  1198.             "GDitAlg"
  1199.             "Emu"
  1200.             "Mode"
  1201.             "Font"
  1202.             "FONT0"
  1203.             "FONT1"
  1204.             "FONT2"
  1205.             "FONT3"
  1206.             "FONT4"
  1207.             "FONT5"
  1208.             "FONT6"
  1209.             "FONT7"
  1210.             "FONT8"
  1211.             "FONT9"
  1212.             "FONT10"
  1213.             "FONTDAT"
  1214.             "OVERPAGE"
  1215.             "NOSTRIP"
  1216.             "ORIENT"
  1217.             "NODISP"
  1218.             "BJ130Pref"
  1219.             "BJC880Pref"
  1220.             "LBPPref"
  1221.             "BJ300Pref"
  1222.             "BJ5-230Pref"
  1223.             "BJECPref"
  1224.             "" ))
  1225.         (
  1226.             (set n (+ n 1))
  1227.             (if (exists (cat "ENV:Canon" thisfile))
  1228.             (
  1229.                 (delete (cat "ENV:Canon" thisfile))
  1230.             ))
  1231.             (if (exists (cat "ENVARC:Canon" thisfile))
  1232.             (
  1233.                 (delete (cat "ENVARC:Canon" thisfile))
  1234.             ))
  1235.         ))
  1236.         (set addmeter    1)
  1237.         (Meter)
  1238.         (set n 0)
  1239.         (while (set thisfile (select n  "CanonBJ-EC"
  1240.             "CanonBJ5-2x0"
  1241.             "CanonBJ5-230"
  1242.             "CanonBJ300"
  1243.             "CanonLBP"
  1244.             "CanonBJC880"
  1245.             "CanonBJ130"
  1246.             "" ))
  1247.         (
  1248.             (set n (+ n 1))
  1249.             (if (exists (cat "devs:printers/" thisfile))
  1250.             (
  1251.                 (delete (cat "devs:printers/" thisfile))
  1252.             ))
  1253.             (if (exists (cat "printers:" thisfile) (noreq))
  1254.             (
  1255.                 (delete (cat "printers:" thisfile))
  1256.             ))
  1257.         ))
  1258.         (set addmeter    1)
  1259.         (Meter)
  1260.         (set n 0)
  1261.         (while (set thisfile (select n  "CanonPref"
  1262.             "CanonPref.info"
  1263.             "CanonBJ130Pref"
  1264.             "CanonBJ130Pref.info"
  1265.             "CanonBJ300Pref"
  1266.             "CanonBJ300Pref.info"
  1267.             "CanonBJ5-230Pref"
  1268.             "CanonBJ5-230Pref.info"
  1269.             "CanonBJECPref"
  1270.             "CanonBJECPref.info"
  1271.             "CanonLBPPref"
  1272.             "CanonLBPPref.info"
  1273.             "CanonCaPSLPref"
  1274.             "CanonCaPSLPref.info"
  1275.             "BJ-FontShop"
  1276.             "BJ-FontShop.info"
  1277.             "CaPSL-FontShop"
  1278.             "CaPSL-FontShop.info"
  1279.             "LBP-FontShop"
  1280.             "LBP-FontShop.info"
  1281.             "SetupBJL-BJC4100"
  1282.             "SetupBJL-BJC4100.prefs"
  1283.             "SetupBJL-BJC4100.info"
  1284.             "SetupBJL-BJC210"
  1285.             "SetupBJL-BJC210.prefs"
  1286.             "SetupBJL-BJC210.info"
  1287.             "SetupBJL-BJC4xxx"
  1288.             "SetupBJL-BJC4xxx.prefs"
  1289.             "SetupBJL-BJC4xxx.info"
  1290.              "SetupBJL-BJC2xx"
  1291.              "SetupBJL-BJC2xx.prefs"
  1292.             "SetupBJL-BJC2xx.info"
  1293.             "" ))
  1294.         (
  1295.             (set n (+ n 1))
  1296.             (if (exists (cat "sys:prefs/" thisfile))
  1297.             (
  1298.                 (delete (cat "sys:prefs/" thisfile))
  1299.             ))
  1300.             (if (exists (cat "sys:prefs/" thisfile ".info"))
  1301.             (
  1302.                 (delete (cat "sys:prefs/" thisfile ".info"))
  1303.             ))
  1304.         ))
  1305.         (set addmeter    1)
  1306.         (Meter)
  1307.     )
  1308.     (
  1309.         (set addmeter    3)
  1310.         (Meter)
  1311.     ))
  1312. ))
  1313. ; **** install driver
  1314. (if (IN studio 1)
  1315. (
  1316.     (set addmeter    1)
  1317.     (Meter)
  1318.     ; ask for kind of printer 
  1319.     (set emul   (askchoice (prompt #w-emul)
  1320.         (help #w-emul-help)
  1321.             (choices "Canon BJ       (BJ Emulation)"    ; 0
  1322.                 "Canon BJC      (Epson Emulation)"    ; 1
  1323.                 "Canon LBP      (CaPSL Emulation)"    ; 2
  1324.                 "Canon LBP      (PCL   Emulation)"    ; 3
  1325.                 "Canon A1 or A2 (CaPSL Emulation)"    ; 4
  1326.                 "Canon BJC 880  (CaPSL Emulation)"    ; 5
  1327.             )
  1328.             (default 1)
  1329.     ))
  1330.     (set addmeter    1)
  1331.     (Meter)
  1332.     (set pagestreamv2 "")
  1333.     (set driverpath "")
  1334.     (set drivername "")
  1335.     (set prefpath "")
  1336.     (set prefname "")
  1337.     (set preffilename "")
  1338.     (set envname "")
  1339.     (set presetname "")
  1340.     (set setupname "")
  1341.     (set setuptool "")
  1342.     (set driversize 0)
  1343.  
  1344.     (set addmeter    1)
  1345.     (Meter)
  1346.  
  1347.     (if (= emul 0)
  1348.     (  ; CanonBJ
  1349.         (set brand  (askchoice (prompt #w-driver)
  1350.             (help #w-driver-help)
  1351.             (choices "Canon BJ 5, 10, 10e, 10ex, 20"    ; 0
  1352.                 "Canon BJ 30 (Epson Emulation)"        ; 1
  1353.                 "Canon BJ 100"                ; 2
  1354.                 "Canon BJ 130, 130e"            ; 3
  1355.                 "Canon BJ 200, 200e"            ; 4
  1356.                 "Canon BJ 200ex"            ; 5
  1357.                 "Canon BJ 230"                ; 6
  1358.                 "Canon BJ 300, 330"            ; 7
  1359.             )
  1360.             (default 0)
  1361.         ))
  1362.  
  1363.         (if (= brand 1)
  1364.         (  ; CanonBJ30
  1365.             (set driverpath "CanonDisk_Install:drivers/")
  1366.             (set drivername "CanonBJEC")
  1367.             (set prefpath "CanonDisk_Install:prefs/")
  1368.             (set prefname "CanonBJECPref")
  1369.             (set driversize 56566)   ; ~46936+6558+3072
  1370.             (set envname "CanonBJECPref")
  1371.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC30")
  1372.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
  1373.         ))
  1374.  
  1375.         (if (= brand 0)
  1376.         (  ; BJ 100 or BJ 5..10..20
  1377.             (set driverpath "CanonDisk_Install:drivers/")
  1378.             (set drivername "CanonBJ5-230")
  1379.             (set prefpath "CanonDisk_Install:prefs/")
  1380.             (set prefname "CanonBJ5-230Pref")
  1381.             (set driversize 29126)   ; ~24648+1406+3072
  1382.             (set envname "CanonBJ5-230Pref")
  1383.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJ10")
  1384.         ))
  1385.         (if (= brand 3)
  1386.         (
  1387.             (abort #sorry)
  1388.         ))
  1389.         (if (OR (= brand 2) (OR (= brand 4) (OR (= brand 5) (= brand 6))))
  1390.         (  ; CanonBJ2x0
  1391.             (set driverpath "CanonDisk_Install:drivers/")
  1392.             (set drivername "CanonBJ5-230")
  1393.             (set prefpath "CanonDisk_Install:prefs/")
  1394.             (set prefname "CanonBJ5-230Pref")
  1395.             (set driversize 29126)   ; ~24648+1406+3072
  1396.             (set envname "CanonBJ5-230Pref")                 ; default preset
  1397.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJ200") ; usualy not installed... for future reasons...
  1398.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
  1399.             (if (= brand 6)
  1400.             (
  1401.                 (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ230.printer")
  1402.             ))
  1403.         ))
  1404.         (if (= brand 7)
  1405.         (  ; CanonBJ300
  1406.             (set driverpath "CanonDisk_Install:drivers/")
  1407.             (set drivername "CanonBJ300")
  1408.             (set prefpath "CanonDisk_Install:prefs/")
  1409.             (set prefname "CanonBJ300Pref")
  1410.             (set driversize 24462)   ; ~19984+1406+3072
  1411.             (set envname "CanonBJ300Pref")
  1412.         ))
  1413.     ))
  1414.  
  1415.     (if (= emul 1)
  1416.     (  ; CanonBJC
  1417.         (set brand  (askchoice (prompt #w-driver)
  1418.             (help #w-driver-help)
  1419.             (choices "Canon BJC 70"                ; 0
  1420.                 "Canon BJC 80"                ; 1
  1421.                 "Canon BJC 150"                ; 2
  1422.                 "Canon BJC 210"                ; 3
  1423.                 "Canon BJC 240"                ; 4
  1424.                 "Canon BJC 250"                ; 5
  1425.                 "Canon BJC 600, 600e"            ; 6
  1426.                 "Canon BJC 610, 620"            ; 7
  1427.                 "Canon BJC 800, 820"            ; 8
  1428.                 "Canon BJC 4000"            ; 9
  1429.                 "Canon BJC 4100"            ; 10
  1430.                 "Canon BJC 4200, 4550"            ; 11
  1431.                 "Canon BJC 4300, 4650"            ; 12
  1432.                 "Canon BJC 880"                         ; 13
  1433.                 "Canon BJC 7000"                        ; 14
  1434.             )
  1435.             (default 12)
  1436.         ))
  1437.  
  1438.         (if (= brand 0)
  1439.         (  ; CanonBJC70
  1440.             (set driverpath "CanonDisk_Install:drivers/")
  1441.             (set drivername "CanonBJEC")
  1442.             (set prefpath "CanonDisk_Install:prefs/")
  1443.             (set prefname "CanonBJECPref")
  1444.             (set driversize 55790)   ; ~46160+6558+3072
  1445.             (set envname "CanonBJECPref")
  1446.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC70")
  1447.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1448.         ))
  1449.         (if (= brand 1)
  1450.         (  ; CanonBJC80
  1451.             (set driverpath "CanonDisk_Install:drivers/")
  1452.             (set drivername "CanonBJEC")
  1453.             (set prefpath "CanonDisk_Install:prefs/")
  1454.             (set prefname "CanonBJECPref")
  1455.             (set driversize 55790)   ; ~46160+6558+3072
  1456.             (set envname "CanonBJECPref")
  1457.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC70")
  1458.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1459.             (set setupname "SetupBJL-BJC4xxx")
  1460.         ))
  1461.  
  1462.         (if (= brand 2)
  1463.         (  ; CanonBJC150
  1464.             (set driverpath "CanonDisk_Install:drivers/")
  1465.             (set drivername "CanonBJEC")
  1466.             (set prefpath "CanonDisk_Install:prefs/")
  1467.             (set prefname "CanonBJECPref")
  1468.             (set driversize 55790)   ; ~46160+6558+3072
  1469.             (set envname "CanonBJECPref")
  1470.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC150")
  1471.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1472.             (set setupname "SetupBJL-BJC1xx")
  1473.         ))
  1474.         (if (= brand 3)
  1475.         (  ; CanonBJC210
  1476.             (set driverpath "CanonDisk_Install:drivers/")
  1477.             (set drivername "CanonBJEC")
  1478.             (set prefpath "CanonDisk_Install:prefs/")
  1479.             (set prefname "CanonBJECPref")
  1480.             (set driversize 55790)   ; ~46160+6558+3072
  1481.             (set envname "CanonBJECPref")
  1482.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC210")
  1483.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1484.             (set setupname "SetupBJL-BJC2xx")
  1485.         ))
  1486.         (if (= brand 4)
  1487.         (  ; CanonBJC240
  1488.             (set driverpath "CanonDisk_Install:drivers/")
  1489.             (set drivername "CanonBJEC")
  1490.             (set prefpath "CanonDisk_Install:prefs/")
  1491.             (set prefname "CanonBJECPref")
  1492.             (set driversize 55790)   ; ~46160+6558+3072
  1493.             (set envname "CanonBJECPref")
  1494.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC240")
  1495.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1496.             (set setupname "SetupBJL-BJC2xx")
  1497.             (set setuptool "USEPOWERON")
  1498.         ))
  1499.         (if (= brand 5)
  1500.         (  ; CanonBJC240
  1501.             (set driverpath "CanonDisk_Install:drivers/")
  1502.             (set drivername "CanonBJEC")
  1503.             (set prefpath "CanonDisk_Install:prefs/")
  1504.             (set prefname "CanonBJECPref")
  1505.             (set driversize 55790)   ; ~46160+6558+3072
  1506.             (set envname "CanonBJECPref")
  1507.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC250")
  1508.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1509.             (set setupname "SetupBJL-BJC2xx")
  1510.             (set setuptool "USEPOWERON")
  1511.         ))
  1512.         (if (= brand 6)
  1513.         (  ; CanonBJC600
  1514.             (set driverpath "CanonDisk_Install:drivers/")
  1515.             (set drivername "CanonBJEC")
  1516.             (set prefpath "CanonDisk_Install:prefs/")
  1517.             (set prefname "CanonBJECPref")
  1518.             (set driversize 55790)   ; ~46160+6558+3072
  1519.             (set envname "CanonBJECPref")
  1520.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
  1521.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1522.         ))
  1523.         (if (= brand 7)
  1524.         (  ; CanonBJC610
  1525.             (set driverpath "CanonDisk_Install:drivers/")
  1526.             (set drivername "CanonBJEC")
  1527.             (set prefpath "CanonDisk_Install:prefs/")
  1528.             (set prefname "CanonBJECPref")
  1529.             (set driversize 55790)   ; ~46160+6558+3072
  1530.             (set envname "CanonBJECPref")
  1531.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
  1532.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC610.printer")
  1533.         ))
  1534.         (if (= brand 8)
  1535.         (  ; CanonBJC800, 820
  1536.             (set driverpath "CanonDisk_Install:drivers/")
  1537.             (set drivername "CanonBJEC")
  1538.             (set prefpath "CanonDisk_Install:prefs/")
  1539.             (set prefname "CanonBJECPref")
  1540.             (set driversize 55790)   ; ~46160+6558+3072
  1541.             (set envname "CanonBJECPref")
  1542.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC800")
  1543.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1544.         ))
  1545.         (if (= brand 9)
  1546.         (  ; CanonBJC4000
  1547.             (set driverpath "CanonDisk_Install:drivers/")
  1548.             (set drivername "CanonBJEC")
  1549.             (set prefpath "CanonDisk_Install:prefs/")
  1550.             (set prefname "CanonBJECPref")
  1551.             (set driversize 55790)   ; ~46160+6558+3072
  1552.             (set envname "CanonBJECPref")
  1553.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1554.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4000.printer")
  1555.         ))
  1556.         (if (= brand 10)
  1557.         (  ; CanonBJC4100
  1558.             (set driverpath "CanonDisk_Install:drivers/")
  1559.             (set drivername "CanonBJEC")
  1560.             (set prefpath "CanonDisk_Install:prefs/")
  1561.             (set prefname "CanonBJECPref")
  1562.             (set driversize 55790)   ; ~46160+6558+3072
  1563.             (set envname "CanonBJECPref")
  1564.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1565.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4100.printer")
  1566.             (set setupname "SetupBJL-BJC4xxx")
  1567.         ))
  1568.         (if (OR (= brand 11) (= brand 12))
  1569.         (  ; CanonBJC4200, 4550   BJC 4300, 4650
  1570.             (set driverpath "CanonDisk_Install:drivers/")
  1571.             (set drivername "CanonBJEC")
  1572.             (set prefpath "CanonDisk_Install:prefs/")
  1573.             (set prefname "CanonBJECPref")
  1574.             (set driversize 55790)   ; ~46160+6558+3072
  1575.             (set envname "CanonBJECPref")
  1576.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1577.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4100.printer")
  1578.             (set setupname "SetupBJL-BJC4xxx")
  1579.             (set setuptool "USEPOWERON")
  1580.         ))
  1581.         (if (= brand 13)
  1582.         (  ; CanonBJC880
  1583.             (abort #sorry)
  1584.         ))
  1585.         (if (= brand 14)
  1586.         (  ; CanonBJC880
  1587.             (abort #sorry2)
  1588.         ))
  1589.     ))
  1590.  
  1591.     (if (= emul 2)
  1592.     (  ; CanonLBP CaPSL
  1593.         (set brand  (askchoice (prompt #w-driver)
  1594.             (help #w-driver-help)
  1595.             (choices "Canon LBP         (CaPSL 3)" ; 0
  1596.                 "Canon LBP (600dpi, CaPSL 4)" ; 1
  1597.             )
  1598.             (default 0)
  1599.         ))
  1600.         (abort #sorry)
  1601.     ))
  1602.     (if (= emul 3)
  1603.     (  ; Canon LBP PCL Emulation
  1604.         (abort #sorry)
  1605.     ))
  1606.     (if (= emul 4)
  1607.     (  ; Canon A1+A2
  1608.         (abort #sorry)
  1609.     ))
  1610.     (if (= emul 5)
  1611.     (  ; Canon BJC 880
  1612.         (abort #sorry)
  1613.     ))
  1614.  
  1615.  
  1616.     ; find the devs:printers directory
  1617.     (set driverdrawer "Devs:Printers")
  1618.     (set addmeter    1)
  1619.     (Meter)
  1620.     (if (= @user-level 2)
  1621.     (
  1622.         (set driverdrawer (askdir (prompt #ask-sys)
  1623.             (help #ask-sys-help)
  1624.             (default driverdrawer))
  1625.         )
  1626.     ))
  1627.     (set addmeter    1)
  1628.     (Meter)
  1629.     (if (not (exists driverdrawer))
  1630.     (
  1631.         (set driverdrawer (askdir (prompt #ask-sys)
  1632.             (help #ask-sys-help)
  1633.             (default driverdrawer))
  1634.         )
  1635.     ))
  1636.     (set addmeter    1)
  1637.     (Meter)
  1638.     (set targetsize (getdiskspace driverdrawer))
  1639.      (if (< targetsize driversize)
  1640.     (
  1641.         (if (<> (getdevice driverdrawer) "RAM")
  1642.         (
  1643.             (message (#yellspace driversize (getdevice driverdrawer)))
  1644.             (set n 0)
  1645.             (set flag 0)
  1646.             (while (set thisfile (select n  #tdel0
  1647.                 #tdel1
  1648.                 #tdel2
  1649.                 #tdel3
  1650.                 #tdel4
  1651.                 #tdel5
  1652.                 #tdel6
  1653.                 #tdel7
  1654.                 #tdel8
  1655.                 #tdel9
  1656.                 #tdel10
  1657.                 #tdel11
  1658.                 #tdel12
  1659.                 #tdel13
  1660.                 #tdel14
  1661.                 #tdel15
  1662.                 #tdel16
  1663.                 "" ))
  1664.             (
  1665.                 (set thiscomment (select n  #del0
  1666.                     #del1
  1667.                     #del2
  1668.                     #del3
  1669.                     #del4
  1670.                     #del5
  1671.                     #del6
  1672.                     #del7
  1673.                     #del8
  1674.                     #del9
  1675.                     #del10
  1676.                     #del11
  1677.                     #del12
  1678.                     #del13
  1679.                     #del14
  1680.                     #del15
  1681.                     #del16
  1682.                     "" ))
  1683.                 (set n (+ n 1))
  1684.                 (set targetsize (getdiskspace driverdrawer))
  1685.                 (if (< targetsize driversize)
  1686.                 (
  1687.                     (set devthisfile (tackon (cat (getdevice driverdrawer) ":") thisfile))
  1688.                     (if (exists devthisfile)
  1689.                     (
  1690.                         (set flag 1)
  1691.                         (if (askbool (prompt (#full-delete devthisfile thiscomment))
  1692.                             (help (#full-delete-help ))
  1693.                             (choices #full-delete-1 #full-delete-2)
  1694.                             (default 1))
  1695.                         (
  1696.                             (protect devthisfile "+rwed")
  1697.                             (delete  devthisfile)
  1698.                             (protect (cat devthisfile ".info") "+rwed")
  1699.                             (delete (cat devthisfile ".info"))
  1700.                         ))
  1701.                     ))
  1702.                 ))
  1703.             ))
  1704.             (set targetsize (getdiskspace driverdrawer))
  1705.             (if (< targetsize driversize)
  1706.             (
  1707.                 (if (= flag 1)
  1708.                 (
  1709.                     (abort (#tofull (getdevice driverdrawer) driversize))
  1710.                 )
  1711.                 (
  1712.                     (abort (#tofull2 (getdevice driverdrawer) driversize))
  1713.                 ))
  1714.             ))
  1715.         ))
  1716.     ))
  1717.     (set addmeter    1)
  1718.     (Meter)
  1719.     (if (<> (exists "devs:printer.device") 1)
  1720.     (
  1721.         (message #nodevice)
  1722.     ))
  1723.     (if (<> (exists "devs:parallel.device") 1)
  1724.     (
  1725.         (message #nopardevice)
  1726.     ))
  1727.     (if (<> (exists "ENV:") 2)
  1728.     (
  1729.         (abort #noenv)
  1730.     ))
  1731.     (if (<> (exists "ENVARC:") 2)
  1732.     (
  1733.         (abort #noenvarc)
  1734.     ))
  1735.     (set addmeter    1)
  1736.     (Meter)
  1737.     ; **** find the sys:prefs directory
  1738.     (set prefdisk ("SYS:Prefs"))
  1739.     (if (> diskbased 0)
  1740.     (
  1741.         (set prefdisk (askdir (prompt (#ask-prefsdisk disknumber))
  1742.             (help #ask-prefs-help)
  1743.             (default "Canon:"))
  1744.         )
  1745.         (set firstdisk prefdisk)
  1746.         (set prefdisk (tackon prefdisk "Prefs"))
  1747.         (if (<> (exists prefdisk) 2)
  1748.         (
  1749.             (makedir (prefdisk)
  1750.                 (infos)
  1751.             )
  1752.         ))
  1753.     )
  1754.     (
  1755.         (if (exists "sys:preferences")
  1756.         (
  1757.             (set prefdisk ("SYS:Preferences"))
  1758.         ))
  1759.         (if (exists "SYS:Prefs")
  1760.         (
  1761.             (set prefdisk ("SYS:Prefs"))
  1762.         ))
  1763.         (set prefdisk (askdir (prompt #ask-prefs)
  1764.             (help #ask-prefs-help)
  1765.             (default prefdisk))
  1766.         )
  1767.     ))
  1768.     (set addmeter    1)
  1769.     (Meter)
  1770.     (if (not (exists prefdisk))
  1771.     (
  1772.         (set prefdisk (askdir (prompt #ask-prefs)
  1773.             (help #ask-prefs-help)
  1774.             (default prefdisk))
  1775.         )
  1776.     ))
  1777.     (set addmeter    1)
  1778.     (Meter)
  1779.     (if (<> pagestreamv2 "")
  1780.     (
  1781.         (if (askbool (prompt (#pagestream))
  1782.             (help (#pagestream-help ))
  1783.             (choices #pagestream-yes #pagestream-no))
  1784.         (
  1785.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1786.                 (help #ask-pagestream-help)
  1787.                 (default "WORK:")
  1788.             ))
  1789.             (if( exists (pagedrawer))
  1790.             (
  1791.                 (working #waitmsg)
  1792.                 (set exerr (run (cat "T:lx x " pagestreamv2 ".lzh" " \"" pagedrawer "\"")))
  1793.                 (if (> exerr 0)
  1794.                 (
  1795.                     (abort (#abortunpack prefname))
  1796.                 ))
  1797.                 (message (#madpgsupdate2 (fileonly pagestreamv2)))
  1798.             ))
  1799.         ))
  1800.     ))
  1801.     (working #waitmsg)
  1802.     (makeassign "DRIVERPARENT" prefdisk)
  1803.     (set addmeter    1)
  1804.     (Meter)
  1805.     (set exerr (run (cat "T:lx x " driverpath drivername ".lzh \"" driverdrawer "\"")))
  1806.     (if (> exerr 0)
  1807.     (
  1808.         (abort (#abortunpack drivername))
  1809.     ))
  1810.     (set addmeter    5)
  1811.     (Meter)
  1812.     (set exerr (run (cat "T:lx x " prefpath prefname ".lzh \"DRIVERPARENT:\"")))
  1813.     (if (> exerr 0)
  1814.     (
  1815.         (abort (#abortunpack prefname))
  1816.     ))
  1817.     (set addmeter    6)
  1818.     (Meter)
  1819.     (if (<> setupname "")
  1820.     (
  1821.         (set exerr (run (cat "T:lx x " prefpath setupname ".lzh \"DRIVERPARENT:\"")))
  1822.         (if (> exerr 0)
  1823.         (
  1824.             (abort (#abortunpack setupname))
  1825.         ))
  1826.  
  1827.         (if (<> setuptool "")
  1828.         (
  1829.             (tooltype (prompt "")
  1830.                 (help "")
  1831.                 (dest (cat "DRIVERPARENT:" setupname))
  1832.                 (settooltype (setuptool) "ON")
  1833.                 (noposition))
  1834.         ))
  1835.         (message (#setupmsg setupname prefdisk))
  1836.         (working #waitmsg)
  1837.     ))
  1838.     (if (exists "ENV:")
  1839.     (
  1840.         (delete (cat "ENV:" envname))
  1841.     ))
  1842.     (if (exists "ENVARC:")
  1843.     (
  1844.         (delete (cat "ENVARC:" envname))
  1845.     ))
  1846.     (set addmeter    3)
  1847.     (Meter)
  1848.     (if (<> presetname "")
  1849.     (
  1850.         (if (= (exists presetname) 1)
  1851.         (
  1852.             (copyfiles (source presetname)
  1853.                 (dest "ENV:")
  1854.                 (newname envname)
  1855.                 (nogauge)
  1856.             )
  1857.  
  1858.         )
  1859.         (
  1860.             (set secondname (cat "T:" (fileonly presetname)))
  1861.             (set presetname (cat presetname ".lzh"))
  1862.             (if (= (exists presetname) 1)
  1863.             (
  1864.                 (set exerr (run (cat "T:lx x " presetname " T:")))
  1865.                 (if (> exerr 0)
  1866.                 (
  1867.                     (abort (#abortunpack presetname))
  1868.                 ))
  1869.                 (copyfiles (source secondname)
  1870.                     (dest "ENV:")
  1871.                     (newname envname)
  1872.                     (nogauge)
  1873.                 )
  1874.             ))
  1875.         ))
  1876.         (if (= (exists (cat "ENV:" envname)) 1)
  1877.         (
  1878.             (if (exists "ENVARC:")
  1879.             (
  1880.                 (copyfiles (source (cat "ENV:" envname))
  1881.                     (dest "ENVARC:")
  1882.                     (newname envname)
  1883.                     (nogauge)
  1884.                 )
  1885.             ))
  1886.         ))
  1887.     ))
  1888.     (set addmeter    3)
  1889.     (Meter)
  1890.     (if (> diskbased 0)
  1891.     (
  1892.         (set docdisk prefdisk)
  1893.     )
  1894.     (
  1895.         (set docdisk (askdir (prompt #ask-docs)
  1896.             (help #ask-docs-help)
  1897.             (default prefdisk))
  1898.         )
  1899.     ))
  1900.     (set addmeter    2)
  1901.     (Meter)
  1902.     (if (not (exists docdisk))
  1903.     (
  1904.         (set docdisk (askdir (prompt #ask-docs)
  1905.             (help #ask-docs-help)
  1906.             (default docdisk))
  1907.         )
  1908.     ))
  1909.     (set addmeter    1)
  1910.     (Meter)
  1911.     (working #waitmsg)
  1912.     (makeassign "DRIVERPARENT" docdisk)
  1913.     (set targetsize (getdiskspace docdisk))
  1914.     (if (< targetsize 120000)
  1915.     (
  1916.         (if (<> (getdevice docdisk) "RAM")
  1917.         (
  1918.             (abort #abortdocs)
  1919.         ))
  1920.     ))
  1921.     (set addmeter    1)
  1922.     (Meter)
  1923.     (set exerr (run (cat "T:lx x CanonDisk_Install:docs/driver" docfile ".lzh \"DRIVERPARENT:\"")))
  1924.     (if (> exerr 0)
  1925.     (
  1926.         (abort (#abortunpack (cat "Driver" docfile ".lzh")))
  1927.     ))
  1928.     (set addmeter    5)
  1929.     (Meter)
  1930.     (makeassign "DRIVERPARENT")
  1931. ))
  1932. (if (IN studio 2)  ; Studio Application Prgm.
  1933. (
  1934.     (set addmeter    1)
  1935.     (Meter)
  1936.     (set studiopath "");
  1937.     (if (= (exists "ENV:STUDIOPATH") 1)
  1938.     (
  1939.         (set studiopath (getenv "StudioPath"))
  1940.     ))
  1941.     (set addm 5)
  1942.     (Meter)
  1943.     (set found 1)
  1944.     (if (> (strlen studiopath) 1)
  1945.     (
  1946.         (if (= (substr studiopath 0 1)  "\"")
  1947.         (
  1948.             (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  1949.         ))
  1950.         (if (= (exists studiopath) 1)
  1951.         (
  1952.             (if (NOT (askbool (prompt (#foundstudio))
  1953.                 (choices #pagestream-yes #pagestream-no)
  1954.                 (help #foundstudio-help)
  1955.                 (default 0)))
  1956.             (
  1957.                 (set found 0)
  1958.             ))
  1959.         ))
  1960.     ))
  1961.     (if (> found 0)
  1962.     (
  1963.         (if (> diskbased 0)
  1964.         (
  1965.             (if (<> firstdisk "")
  1966.             (
  1967.                 (set target firstdisk)
  1968.             )
  1969.             (
  1970.                 (set target (askdir (prompt (#ask-studiodisk disknumber))
  1971.                     (default "Canon:")
  1972.                     (help #ask-studio-help))
  1973.                 )
  1974.             ))
  1975.         )
  1976.         (
  1977.             (set guessdrawer (getassign "WORK" "d"))
  1978.             (if (= guessdrawer "")
  1979.             (
  1980.                 (set guessdrawer (getassign "DH0" "d"))
  1981.                 (if (= guessdrawer "")
  1982.                 (
  1983.                     (set guessdrawer (getassign "DH2" "d"))
  1984.                     (if (= guessdrawer "")
  1985.                     (
  1986.                         (set guessdrawer "SYS:")
  1987.                     ))
  1988.                 ))
  1989.             ))
  1990.             (set target (askdir (prompt #ask-studio)
  1991.                 (help #ask-studio-help)
  1992.                 (default guessdrawer))
  1993.             )
  1994.         ))
  1995.         (set addmeter    1)
  1996.         (Meter)
  1997.         (set @default-dest target)
  1998.         (working #waitmsg)
  1999.         (set targetsize (getdiskspace target))
  2000.         (if (< targetsize 350000)
  2001.         (
  2002.             (if (<> (getdevice target) "RAM")
  2003.             (
  2004.                 (abort (#tofullstudio (getdevice target) 350000))
  2005.             ))
  2006.         ))
  2007.         (set addmeter    1)
  2008.         (Meter)
  2009.         (makeassign "STUDIOPARENT" target)
  2010.         (set target (tackon target "CanonStudio"))
  2011.         (if (= (exists target) 1)
  2012.         (
  2013.             (rename target (cat target "_V1.xx_OLD"))
  2014.             (if (= (exists (cat target ".info")) 1)
  2015.             (
  2016.                 (rename (cat target ".info") (cat target "_V1.xx_OLD.info"))
  2017.             ))
  2018.         ))
  2019.         (set addmeter    3)
  2020.         (Meter)
  2021.         (working #waitmsg)
  2022.         (set exerr (run (cat "T:lx x CanonDisk_Install:CanonStudio/CanonStudio.lzh \"STUDIOPARENT:\"")))
  2023.         (if (> exerr 0)
  2024.         (
  2025.             (abort (#abortunpack "CanonStudio.lzh"))
  2026.         ))
  2027.         (set addmeter    7)
  2028.         (Meter)
  2029.         (set exerr (run (cat "T:lx x CanonDisk_Install:docs/CanonStudio" docfile ".lzh \"STUDIOPARENT:\"")))
  2030.         (if (> exerr 0)
  2031.         (
  2032.             (abort (#abortunpack (cat "CanonStudio" docfile ".lzh")))
  2033.         ))
  2034.         (makeassign "STUDIOPARENT")
  2035.     )
  2036.     (
  2037.         (set addmeter    12)
  2038.         (Meter)
  2039.  
  2040.     ))
  2041.     (set addmeter    7)
  2042.     (Meter)
  2043. ))
  2044.  
  2045. (if (IN studio 1)
  2046. (
  2047.     (set addmeter    1)
  2048.     (Meter)
  2049.     (message (#finalmsg drivername (tackon prefdisk prefname)))
  2050.     (if (exists "sys:prefs/printer")
  2051.     (
  2052.         (run "sys:prefs/printer")
  2053.     )
  2054.     (
  2055.         (if (exists "sys:prefs/preferences")
  2056.         (
  2057.             (run "sys:prefs/preferences")
  2058.         ))
  2059.     ))
  2060.     (set addmeter    1)
  2061.     (Meter)
  2062.     (run "T:check")
  2063.     (delete "T:check")
  2064.     (if (not (exists "RAM:StudioTemp"))
  2065.     (
  2066.         (message #wrongdither)
  2067.         (if (exists "sys:prefs/printergfx")
  2068.         (
  2069.             (run "sys:prefs/printergfx")
  2070.         ))
  2071.     )
  2072.     ( ; else
  2073.         (delete "RAM:StudioTemp")
  2074.     ))
  2075.     (set addmeter    1)
  2076.     (Meter)
  2077.     (run (cat "\""
  2078.         (tackon prefdisk prefname)
  2079.         "\""))
  2080.     (set addmeter    1)
  2081.     (Meter)
  2082. ))
  2083. (if (> studio 0)
  2084. (
  2085.     (delete "T:lx")
  2086.     (delete "T:check")
  2087.     (delete "RAM:StudioTemp")
  2088. ))
  2089. (makeassign "CanonDisk_Install")
  2090. (complete 100)
  2091.